home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 December / PCWorld_2001-12_cd.bin / Software / Vyzkuste / pspad / pspad_setup.exe / {app} / Context / OtherCad.DEF < prev    next >
Text File  |  2001-10-06  |  4KB  |  88 lines
  1. ; PSPad code template for OtherCad
  2. ; Created by PSPad   09.09.2001  13:41
  3. ; Formßt p°φkaz∙ :
  4. ;   [jmΘno_p°φkazu | popis p°φkazu (libovoln² text)]*klßvesovß_zkratka
  5. ;   °ßdek p°φkazu, kter² bude vlo₧en 
  6. ;   °ßdek p°φkazu, kter² bude vlo₧en ...
  7. ; 
  8. ; hlaviΦka p°φkazu je uzav°ena do [], znak | slou₧φ jako odd∞lovaΦ
  9. ; jmΘna p°φkazu a komentß°e. 
  10. ; * urΦuje nepovinnou klßvesovou zkratku
  11. ; pokud °ßdek p°φkazu obsahuje znak |, kurzor se po vlo₧enφ do
  12. ; textu zastavφ na tomto mφst∞
  13. ; pokud °ßdek p°φkazu obsahuje znak º, bude zde vlo₧en oznaΦen² text
  14. ;
  15. ; Authors:  AleÜ ╚ern², Ing. Ivan SlepiΦka, Petr SlepiΦka
  16. ;
  17. [open | Otev°enφ libovolnΘho souboru]
  18. @open;/ otevre libovolny soubor / sablona / *5.10.2001* Ing. Ivan Slepicka
  19. / pouzite promenne: a=radek retezce i=pracovni promenna
  20.  a = |;a$ = "";a$ = foname "Otev°enφ libovolnΘho ouboru (*.*)|*.*";if a$ == "";stop
  21.  i = exist a$;if i != 0;jmpr 2
  22.  i = 1;msg cnf i "Chyba otevφrßnφ souboru - opakovat pokus?";if i == 1;jmpr -1;else;stop
  23. / tady musi nasledovat (podle typu souboru) vhodna rutina pro jeho zpracovani
  24. ;
  25. [ocd_open | Otev°enφ jinΘho v²kresu]
  26. @ocd_open;/ ulozi rozpracovany vykres a otevre jiny / sablona / *5.10.2001* Ing. Ivan Slepicka
  27.  run 1 1 "F3.OCP";stop|
  28. ;
  29. [ocd_new | Otev°enφ novΘho v²kresu]
  30. @ocd_new;/ ulozi rozpracovany vykres, otevre novy cisty a umozni ho pojmenovat / sablona / *19.12.2000* Ales Cerny
  31.  run 1 1 "NEW.OCP";stop|
  32. ;
  33. [ocd_save | Ulo₧enφ aktußlnφho v²kresu]
  34. @ocd_save;/ ulozi aktualni vykres / sablona / *19.12.2000* Ales Cerny
  35. / pouzite promenne: a=radek retezce i=pracovni promenna
  36.  i = sv 0;if i == 0;msg err "OtherCAD nenφ odklφΦovßn!";stop
  37.  a = |;sv 47 0;a$ = name;a$ = norm a$;if a$ == "";msg err "V²kres nemß jmΘno!";jmpr 3
  38.  a$ = norm name ".OCD" a$;save "" a$;i = sv 77;if i == 0;msg info a$ " byl ulo₧en.";jmpr 2
  39.  msg err a$ "ô NELZE ULOÄIT!"
  40.  stop
  41. ;
  42. [ocd_saveas | Ulo₧enφ aktußlnφho v²kresu pod jin²m jmΘnem]
  43. @ocd_saveas;/ ulozi aktualni vykres pod jinym jmenem / sablona / *19.12.2000* Ales Cerny
  44.  run 1 1 "SAVEAS.OCP";stop|
  45. ;
  46. [pumenu | Rolovacφ pumenu]
  47. @pumenu;/ rolovaci menu o maximalne 32 radcich / sablona / *5.10.2001* Ing. Ivan Slepicka
  48. / pouzite promenne: i=cislo radku pumenu p=vyhodnoceni vyberu z pumenu
  49. / pumenu je pripraveno na maximalni moznou delku = 32 radku; delka se upravi odebranim nepotrebnych radku
  50.  i = 0
  51.  i += 1;pumenu i 1 0 0 "nazev_radku"
  52.  i += 1;pumenu i 1 0 0 "nazev_radku"
  53.  i += 1;pumenu i 1 0 0 "nazev_radku"
  54.  i += 1;pumenu i 1 0 0 "nazev_radku"
  55.  i += 1;pumenu i 1 0 0 "nazev_radku"
  56.  i += 1;pumenu i 1 0 0 "nazev_radku"
  57.  i += 1;pumenu i 1 0 0 "nazev_radku"
  58.  i += 1;pumenu i 1 0 0 "nazev_radku"
  59.  i += 1;pumenu i 1 0 0 "nazev_radku"
  60.  i += 1;pumenu i 1 0 0 "nazev_radku"
  61.  i += 1;pumenu i 1 0 0 "nazev_radku"
  62.  i += 1;pumenu i 1 0 0 "nazev_radku"
  63.  i += 1;pumenu i 1 0 0 "nazev_radku"
  64.  i += 1;pumenu i 1 0 0 "nazev_radku"
  65.  i += 1;pumenu i 1 0 0 "nazev_radku"
  66.  i += 1;pumenu i 1 0 0 "nazev_radku"
  67.  i += 1;pumenu i 1 0 0 "nazev_radku"
  68.  i += 1;pumenu i 1 0 0 "nazev_radku"
  69.  i += 1;pumenu i 1 0 0 "nazev_radku"
  70.  i += 1;pumenu i 1 0 0 "nazev_radku"
  71.  i += 1;pumenu i 1 0 0 "nazev_radku"
  72.  i += 1;pumenu i 1 0 0 "nazev_radku"
  73.  i += 1;pumenu i 1 0 0 "nazev_radku"
  74.  i += 1;pumenu i 1 0 0 "nazev_radku"
  75.  i += 1;pumenu i 1 0 0 "nazev_radku"
  76.  i += 1;pumenu i 1 0 0 "nazev_radku"
  77.  i += 1;pumenu i 1 0 0 "nazev_radku"
  78.  i += 1;pumenu i 1 0 0 "nazev_radku"
  79.  i += 1;pumenu i 1 0 0 "nazev_radku"
  80.  i += 1;pumenu i 1 0 0 "nazev_radku"
  81.  i += 1;pumenu i 1 0 0 "nazev_radku"
  82.  i += 1;pumenu i 1 0 0 "nazev_radku"
  83.  p = pumenu i 0 250 250
  84. / nasleduje vyhodnoceni vyberu, adresovani je nutno upravit!!!
  85. | on p 0 @0 1 @1 2 @2 3 @3 4 @4 5 @5 6 @6 7 @7 8 @8 9 @9 10 @10 11 @11 12 @12 13 @13 14 @14 15 @15 16 @16
  86.   on p 17 @17 18 @18 19 @19 20 @20 21 @21 22 @22 23 @23 24 @24 25 @25 26 @26 27 @27 28 @28 29 @29 30 @30 31 @31 32 @32
  87. ;
  88.